(set_point): Test Vinhibit_point_motion_hooks.

diff --git a/src/intervals.c b/src/intervals.c
index 402b96c4e3725125adaa86d10eaf49aa6c45933e..b39709e0b9ec1b74366fd90a87bdee4bd4f29931 100644 (file)
--- a/src/intervals.c
+++ b/src/intervals.c
@@ -1311,8 +1311,9 @@ set_point (position, buffer)
   /* We run point-left and point-entered hooks here, iff the
      two intervals are not equivalent.  These hooks take
      (old_point, new_point) as arguments.  */
-  if (! intervals_equal (from, to)
-      || ! intervals_equal (fromprev, toprev))
+  if (NILP (Vinhibit_point_motion_hooks)
+      && (! intervals_equal (from, to)
+         || ! intervals_equal (fromprev, toprev)))
     {
       Lisp_Object leave_after, leave_before, enter_after, enter_before;